home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / SQL Query 20519632001.psc / frmHelp.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-05-31  |  1.4 KB  |  48 lines
  1. VERSION 5.00
  2. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  3. Begin VB.Form frmHelp 
  4.    Caption         =   "Help"
  5.    ClientHeight    =   4515
  6.    ClientLeft      =   6030
  7.    ClientTop       =   3840
  8.    ClientWidth     =   6465
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4515
  11.    ScaleWidth      =   6465
  12.    Begin RichTextLib.RichTextBox rtb 
  13.       Height          =   3855
  14.       Left            =   120
  15.       TabIndex        =   1
  16.       Top             =   120
  17.       Width           =   6255
  18.       _ExtentX        =   11033
  19.       _ExtentY        =   6800
  20.       _Version        =   393217
  21.       Enabled         =   -1  'True
  22.       ScrollBars      =   3
  23.       TextRTF         =   $"frmHelp.frx":0000
  24.    End
  25.    Begin VB.CommandButton cmd 
  26.       Caption         =   "Exit"
  27.       Height          =   375
  28.       Index           =   1
  29.       Left            =   5520
  30.       TabIndex        =   0
  31.       Top             =   4080
  32.       Width           =   855
  33.    End
  34. Attribute VB_Name = "frmHelp"
  35. Attribute VB_GlobalNameSpace = False
  36. Attribute VB_Creatable = False
  37. Attribute VB_PredeclaredId = True
  38. Attribute VB_Exposed = False
  39. Option Explicit
  40. Private Sub cmd_Click(Index As Integer)
  41.     Unload Me
  42. End Sub
  43. Private Sub Form_Load()
  44.     Dim s As String
  45.     s = App.Path & "\Help.rtf"
  46.     rtb.LoadFile s
  47. End Sub
  48.